object dmRPMain: TdmRPMain
  OldCreateOrder = True
  OnCreate = DataModuleCreate
  Left = 468
  Top = 194
  Height = 476
  Width = 422
  object cdsRPData: TClientDataSet
    Aggregates = <>
    CommandText = 'select * from sys_rp_data(nolock) where sn = :sn'
    Params = <
      item
        DataType = ftInteger
        Name = 'sn'
        ParamType = ptInput
      end>
    Left = 164
    Top = 15
  end
  object dtsRPData: TDataSource
    DataSet = cdsRPData
    Left = 252
    Top = 15
  end
  object cdsRPParams: TClientDataSet
    Aggregates = <>
    CommandText = 'select * from sys_rp_params(nolock) where rp_sn = :rp_sn'
    Params = <
      item
        DataType = ftUnknown
        Name = 'rp_sn'
        ParamType = ptUnknown
      end>
    Left = 164
    Top = 63
    object cdsRPParamsrp_sn: TIntegerField
      FieldName = 'rp_sn'
    end
    object cdsRPParamsname: TStringField
      FieldName = 'name'
      Size = 50
    end
    object cdsRPParamsdata_type: TStringField
      FieldName = 'data_type'
    end
    object cdsRPParamscaption: TStringField
      FieldName = 'caption'
      Size = 50
    end
    object cdsRPParamslogic_name: TStringField
      FieldName = 'logic_name'
      Size = 50
    end
    object cdsRPParamsdefault_value: TStringField
      FieldName = 'default_value'
      Size = 50
    end
    object cdsRPParamssort_no: TSmallintField
      FieldName = 'sort_no'
    end
    object cdsRPParamstag_id: TIntegerField
      FieldName = 'tag_id'
    end
    object cdsRPParamsdata_type_lookup: TStringField
      FieldKind = fkLookup
      FieldName = 'data_type_lookup'
      LookupDataSet = cdsRPDType
      LookupKeyFields = 'name'
      LookupResultField = 'name'
      KeyFields = 'data_type'
      Lookup = True
    end
    object cdsRPParamsgvr_id: TIntegerField
      FieldName = 'gvr_id'
    end
    object cdsRPParamsgvr_id_lookup: TStringField
      FieldKind = fkLookup
      FieldName = 'gvr_id_lookup'
      LookupDataSet = cdsRPParamGVR
      LookupKeyFields = 'code'
      LookupResultField = 's_name'
      KeyFields = 'gvr_id'
      Lookup = True
    end
  end
  object dtsRPParams: TDataSource
    DataSet = cdsRPParams
    Left = 252
    Top = 63
  end
  object cdsRPResult: TClientDataSet
    Aggregates = <>
    Params = <>
    Left = 164
    Top = 126
  end
  object dtsRPResult: TDataSource
    DataSet = cdsRPResult
    Left = 252
    Top = 126
  end
  object cdsRPDType: TClientDataSet
    Aggregates = <>
    Params = <>
    Left = 168
    Top = 184
  end
  object dtsRPDType: TDataSource
    DataSet = cdsRPDType
    Left = 256
    Top = 184
  end
  object cdsRPParamGVR: TClientDataSet
    Aggregates = <>
    Params = <>
    Left = 168
    Top = 248
  end
  object dtsRPParamGVR: TDataSource
    DataSet = cdsRPParamGVR
    Left = 256
    Top = 248
  end
  object cdsTemp: TClientDataSet
    Aggregates = <>
    Params = <>
    Left = 168
    Top = 312
  end
end
